home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 53 / Tiger_Disk_053_1998-08_Tiger-Crew-Disk_de_Side_B.d64 / formularmaker 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  79 lines
  1. 1 clr:printchr$(142);:ifa=1then4
  2. 2 ifpeek(828)=8then4
  3. 3 a=1:load"fiz+",8,1
  4. 4 gosub40:open4,4,15:close4:ifstthenprint"[147]bitte drucker einschalten!"
  5. 5 open4,4,15:close4:ifstthen5
  6. 6 open4,4:poke53280,6:poke53281,6:print"[158]":dimcm$(40):cmd4,;:printchr$(27);:print#4,chr$(49)
  7. 7 clr:s$="[165] ":e$=" [167] ":c$="":cu$="[207]":cm$="[180]":cl$="[204]":print"[147]":a=1:dimcm$(40)
  8. 8 print"[147]** daten-eingabe **
  9. 9 [153]"name spalte #"a" (^= ende/_=neu)",:[153][199](13)
  10. 10 [161]i$:[139]i$[178]""[167]10
  11. 11 [139]i$[178]"on"[176]i$[178]"cmd"[176]i$[178]""[176]i$[178]""[176]i$[178]"save"[167]10
  12. 12 [139]i$[178]""[167]cm$(a)[178][200](cm$(a),[195](cm$(a))[171]1):[137]16
  13. 13 [139]i$[178]"_"[167]cm$(a)[178]"":[153]"load":[137]9
  14. 14 [139]i$[178][199](13)[167]17
  15. 15 cm$(a)[178]cm$(a)[170]i$
  16. 16 [153]i$;:[137]10
  17. 17 [139]cm$(a)[178]"^"[167]24
  18. 18 [153]"load**  darstellung  **":[139]a[177]1[167]20
  19. 19 c$[178]s$[170]cm$(a)[170]e$:[137]21
  20. 20 c$[178]c$[170]cm$(a)[170]e$
  21. 21 [153]"";c$:ln[178]80[171][195](c$):[139](ln[171]3)[177][171]1[167][153]"";ln[171]3;:[153]"zeichen uebrig"
  22. 22 [139]ln[179]0[167][153]"load zu lang !":t[178]1:[129]t[178]t[164]1200:[130]:[137]7
  23. 23 a[178]a[170]1:[137]9
  24. 24 t[178]2:[129]t[178]t[164]([195](c$)[171]1):[139][202](c$,t,1)[178]"then"[167]cu$[178]cu$[170]"(NULL)":cl$[178]cl$[170]"sqr":cm$[178]cm$[170]"then":[137]26
  25. 25 cu$[178]cu$[170]"usr":cl$[178]cl$[170]"to":cm$[178]cm$[170]" 
  26. 26 next:print"[147]o.k.?":print"";c$
  27. 27 gett$:ift$<>"j"andt$<>"n"then27
  28. 28 ift$="n"thenclr:goto7
  29. 29 print"[147]papier einstellen und taste druecken !"
  30. 30 gett$:ift$=""then30
  31. 31 open4,4:cmd4,;:printchr$(27);:print#4,chr$(18):cmd4,;:print#4,cu$chr$(8)chr$(13)chr$(15);:cmd4,;
  32. 32 print#4,c$chr$(8)chr$(13)chr$(15);:cmd4,;:print#4,cl$chr$(8)chr$(13)chr$(15);
  33. 33 print"[147]zeilenlaenge = 3 druckzeilen. soll das"
  34. 34 print"geaendert werden?
  35. 35 [161]t$:[139]t$[178]""[167]35
  36. 36 [139]t$[178]"j"[167][133]"loadneue laenge ";l2:[137]38
  37. 37 l2[178]3
  38. 38 l1[178]90[173]l2:l2[178]l2[171]1:t[178]1:[129]t[178]t[164]l1:tt[178]1:[129]tt[178]tt[164]l2:[157]4,;:[152]4,cm$[199](8)[199](13)[199](15);:[130]
  39. 39 [157]4,;:[152]4,cl$[199](8)[199](13)[199](15);:[130]:[138]
  40. 40 aa$[178]"(NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
  41. 41 ab$="[180]     form maker by erick parsons     [167]
  42. 42 ac$[178]"(NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandsqr
  43. 43 ad$="[165]             [170]        [170]  [170]     [170]     [167]
  44. 44 ae$[178]"(NULL)andandandandandandandandandandandandandsqrandandandandandandandandsqrandandsqrandandandandandsqrandandandandandsqr":[153]"sysload";:[153]aa$:[153]ab$:[153]ac$:t[178]1
  45. 45 [129]t[178]t[164]8:[153]ad$:[153]ae$:[130]:[160]4:[153]"    anleitung ? j/n
  46. 46 gett$:ift$=""then46
  47. 47 ift$="j"thengosub49
  48. 48 sys(828):return
  49. 49 print"[147]"chr$(14)"  [193][206][204][197][201][212][213][206][199]"
  50. 50 print"[205]it diesem [208]rogramm koennen [198]ormulare"
  51. 51 print"erstellt werden, wie es das [205]uster im"
  52. 52 print"[212]itelbild zeigt. [196]u kannst bis zu  25 "
  53. 53 print"waagrechte [211]paltenbezeichnungen einge-"
  54. 54 print"ben, wobei mindestens 1, hoechstens 26"
  55. 55 print"[218]eichen verwendet werden koennen."
  56. 56 print"[196]ie senkrechten [211]palten koennen in der"
  57. 57 print"[193]nzahl der [196]ruckzeilen eingestellt":print"werden. [198]ormatierung erfolg";
  58. 58 print"t automatisch!":print"           **  [212][193][211][212][197] !  **
  59. 59 [161]t$:[139]t$[178]""[167]59
  60. 60 [153]"load":[153]"(NULL)um (NULL)tarten gibst str$u bei der"
  61. 61 [153]"str$atn(NULL)val(NULL)-valright$chr$atnpeekval die (NULL)amen der (NULL)palten"
  62. 62 [153]"von links nach rechts ein."
  63. 63 [153]"(NULL)val(NULL)(NULL)(NULL)(NULL) beendet die jeweilige valingabe."
  64. 64 [153]"str$eine valingabe wird angezeigt und str$u"
  65. 65 [153]"bist automatisch wieder bei valright$(NULL)chr$atnpeekval."
  66. 66 [153]"(NULL)o gibst str$u nacheinander alle (NULL)amen ein."
  67. 67 [153]"str$as (NULL)rogramm errechnet das ascormat des"
  68. 68 [153]"ascormulars nach jeder valingabe. str$u musst"
  69. 69 [153]"nicht so viele (NULL)palten eingeben, dass"
  70. 70 [153]"das ascormat ausgefuellt wird, jedoch"
  71. 71 [153]"sind nicht mehr valingaben moeglich, als"
  72. 72 [153]"die str$ruckbreite erlaubt. peekei einer"
  73. 73 [153]"ascehleingabe einer (NULL)paltenbezeichnung"
  74. 74 [153]"'_' druecken, und nochmals eingeben."
  75. 75 [153]"(NULL)um peekeenden der valingaben tippst str$u":[153]"anstatt eines (NULL)amens '^' und"
  76. 76 [153]"folgst dann den atnnweisungen.":[153]"           **  (NULL)atn(NULL)(NULL)valclose!  **
  77. 77 gett$:ift$=""then77
  78. 78 printchr$(142);:return:end
  79.